home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 11 / CU Amiga Magazine's Super CD-ROM 11 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-06].iso / propage / genies / frenchgenies / rexx / grilleisométrique30.pprx < prev    next >
Text File  |  1993-08-03  |  1KB  |  59 lines
  1. /*
  2. @BGrilleIsométrique30 @P @I Ecrit et © par Don Cox en Février 1993
  3. @IN'est pas du Domaine Publique. Tous Droits Réservés.
  4. Traduit par Fabien Larini le 24/07/93.
  5.  
  6. Ce Génie met en  place une grille de 0.433 par 0.25 si l'unité courante 
  7. est le cm, de 0.2165 par 0.125 si l'unité est l'inch, de 1.9 par 1 si 
  8. l'unité est le pica, et active l'alignement sur grille. Il sauvegarde les
  9. anciennes dimensions afin de pouvoir les rappeler avec le Génie
  10. "RestoreGrille".
  11. */
  12.  
  13. /*IsometricGrid30*/
  14. /* This Genie sets up an isometric grid and enables snap.
  15. Written by Don Cox © Feb 93 Not public domain. All rights reserved.  */
  16.  
  17.  
  18. signal on error
  19. signal on syntax
  20. address command
  21. call SafeEndEdit.rexx()
  22. call ppm_AutoUpdate(0)
  23. cr="0a"x
  24.  
  25. gsize = ppm_GetGridSize()
  26. gwidth = word(gsize,1)
  27. gheight = word(gsize,2)
  28. call ppm_SaveText("ram:gridsize",gsize)
  29.  
  30. currentunits = ppm_GetUnits()
  31. call ppm_SetGrid(1)
  32. select
  33.     when currentunits = 1 then call ppm_SetGridSize(0.2165,0.125)
  34.     when currentunits = 2 then call ppm_SetGridSize(.433,.25)
  35.     otherwise call ppm_SetGridSize(1.9,1)  /* not so accurate in picas  */
  36.     end
  37. call ppm_SetGridSnap(1)
  38.  
  39. call exit_msg()
  40.  
  41. end
  42.  
  43. error:
  44. syntax:
  45.     do
  46.     exit_msg("Arrêt du Génie dû à l'erreur: "errortext(rc))
  47.     end
  48.  
  49. exit_msg:
  50.     do
  51.     parse arg message
  52.     if message ~= "" then
  53.     call ppm_Inform(1,message,)
  54.     call ppm_ClearStatus()
  55.     call ppm_AutoUpdate(1)
  56.     exit
  57.     end
  58.                                
  59.